home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / tegl6b.zip / INTROPAK.EXE / lha / ANIMTST2.PAS < prev    next >
Pascal/Delphi Source File  |  1991-04-06  |  1KB  |  50 lines
  1. {*********************************************************}
  2. {        TEGL Windows ToolKit II           }
  3. {      Copyright (C) 1990, TEGL Systems Corporation      }
  4. {         All Rights Reserved.              }
  5. {*********************************************************}
  6.  
  7. Uses
  8.     crt,
  9.     tgraph,
  10.     videochk,
  11. {   teglintr, }
  12.     animunit,
  13.     teglmain,
  14.     TEGLIcon,
  15. {   TEGLMenu, }
  16.     TEGLUnit;
  17. {   fastgrph; }
  18.  
  19. var BounceIcon : animateobject;
  20.  
  21. begin
  22.    SetVideoChoices(TG_VGA,false);
  23.    EasyTEGL;
  24.  
  25.    init(BounceIcon);
  26.    AddFrame(BounceIcon,@imageblankbut,-15,0,14,37,10,0,0,black);
  27.    sequence(BounceIcon,1);
  28.  
  29.    ResetSequence(BounceIcon);
  30.    AddFrame(BounceIcon,@imageblankbut,15,0,14,37,10,0,0,black);
  31.    sequence(BounceIcon,2);
  32.  
  33.    Origin(BounceIcon,GetMaxx div 2,GetMaxy div 2);
  34.  
  35.    animateinit;
  36.  
  37.    clearkeyboardbuf;
  38.  
  39.    while not keypressed do
  40.       begin
  41.      sequence(BounceIcon,1);
  42.      Animate(BounceIcon,Destination(BounceIcon,36,0));
  43.  
  44.      sequence(BounceIcon,2);
  45.      Animate(BounceIcon,Destination(BounceIcon,560,0));
  46.       end;
  47.  
  48.    TEGLSupervisor;
  49. end.
  50.